unit uHist_agenda;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uPai, StdCtrls, DBCtrls, Mask, FacDbEdit, DB, Buttons, ExtCtrls,
  ComCtrls, XPMenu;

type
  TfHist_agenda = class(TfPai)
    FacDBEdit1: TFacDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    DBMemo1: TDBMemo;
    XPMenu1: TXPMenu;
    DBText1: TDBText;
    DBText2: TDBText;
    procedure btngravarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fHist_agenda: TfHist_agenda;
implementation

uses UDM, uAgendamento;

{$R *.dfm}

procedure TfHist_agenda.btngravarClick(Sender: TObject);
begin
  inherited;
  strTitulo := dm.cds_agendaTITULO.AsString;
  strHist := dm.cds_agendaANOT_DIA.AsString;
  close;
end;

procedure TfHist_agenda.FormCreate(Sender: TObject);
begin
  inherited;
  if not dm.cds_agendaTITULO.IsNull then
    strTitulo := dm.cds_agendaTITULO.AsString;
  if not dm.cds_agendaANOT_DIA.IsNull then
    strHist := dm.cds_agendaANOT_DIA.AsString;
end;

end.
